home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1997 October / MACPOWER-1997-10.ISO.7z / MACPOWER-1997-10.ISO / AMUG / INTERNET / HTML Grinder 3.21.sit / HTML Grinder / Grinder Tools / Glossary / background_3885.xml next >
Extensible Markup Language  |  1997-07-01  |  3KB  |  44 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>3885</id>
  5.     <filler1>0</filler1>
  6.     <cantDelete> <false /> </cantDelete>
  7.     <showPict> <true /> </showPict>
  8.     <dontSearch> <false /> </dontSearch>
  9.     <link rel="stylesheet" type="text/css" href="stylesheet_3279.css" />
  10.     <part>
  11.         <id>5</id>
  12.         <type>button</type>
  13.         <visible> <true /> </visible>
  14.         <reserved5> 0 </reserved5>
  15.         <reserved4> 0 </reserved4>
  16.         <reserved3> 0 </reserved3>
  17.         <reserved2> 0 </reserved2>
  18.         <reserved1> 0 </reserved1>
  19.         <enabled> <true /> </enabled>
  20.         <rect>
  21.             <left>0</left>
  22.             <top>319</top>
  23.             <right>17</right>
  24.             <bottom>336</bottom>
  25.         </rect>
  26.         <style>opaque</style>
  27.         <showName> <false /> </showName>
  28.         <highlight> <false /> </highlight>
  29.         <autoHighlight> <true /> </autoHighlight>
  30.         <sharedHighlight> <true /> </sharedHighlight>
  31.         <family>0</family>
  32.         <titleWidth>0</titleWidth>
  33.         <icon>29540</icon>
  34.         <textAlign>center</textAlign>
  35.         <font>Chicago</font>
  36.         <textSize>12</textSize>
  37.         <textStyle>plain</textStyle>
  38.         <name>Help</name>
  39.         <script>on mouseUpfullhelpend mouseUpon mouseenterhelper "Click here for more help for HTML Grinder."end mouseenter</script>
  40.     </part>
  41.     <name></name>
  42.     <script>on converter thefile,thecontents,filenumglobal totalchangesput the number of lines in cd fld entries into numentriesput round(100/numentries) into stepperrepeat with x = 1 to numentriesput unscrunch(line x of cd fld entries) into finderput unscrunch(line x of cd fld definitions) into changerif there is a window "grinding..." thenset cursor to busyset thermometer_value of window "grinding..." to ((filenum-1) *100) + (x*stepper)if iconnum =1then put 3 into iconnumelse put 1 into iconnumset i3_name of window "grinding..." to "grinder"&iconnumend ifput fullfind(thecontents,finder,false,true,the hilite of cd btn "case sensitive") into allchanges-- put fullfind(thecontents,finder,false,true) into allchangesput length(finder) -1 into chunklengthput the number of lines in allchanges into thesechangesadd thesechanges to totalchangesrepeat with x=thesechanges down to 1put item 1 of line x of allchanges into startcharput startchar + chunklength into endcharput changer into char startchar to endchar of thecontentsend repeatend repeatReplaceFile thefile,thecontentsend converteron mousedownif the name of the target is ("card"&&quote&"glossary"&quote)then deselectend mousedownon deselectlock screenshow cd btn coverput empty into cd fld fullentryput empty into cd fld definitionselect line 0 of cd fld entriesdisable cd btn "delete entry..."unlock screenend deselecton commandkeydown whatif what is "N" thenset the hilite of cd btn id 15 to truewait 5set the hilite of cd btn id 15 to falsesend mouseup to cd btn id 15else pass commandkeydownend commandkeydownon alldone textoglobal totalchangesput totalchanges&&"occurrences were changed." into textoput "0" into totalchangessend "alldone texto" to homie()end alldoneon resetwheelput empty into cd fld entriesput empty into cd fld fullentryput empty into cd fld definitionput empty into cd fld definitionsselect line 0 of cd fld entriesdeselectset the hilite of cd btn "Case Sensitive" to falsepass resetwheelend resetwheel</script>
  43. </background>
  44.